home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-13
/
amac44a.zip
/
COM005.QM
< prev
next >
Wrap
Text File
|
1992-06-22
|
4KB
|
124 lines
* com005.qm
* Macros to Append Eol Date Markers '*:dd'
* Written By Tom Hogshead
* [ See COMTxx.QM For Use ]
* 6/22/92
* Key Description Bytes
* ===== ========================================================== =====
* @1 Insert Eol Date Marker '*:dd', Pause If There ( ) 39 |new
* Like *:22
* @2 Find and Pause to Delete Next Eol Marker 28 |new
* @3 Find and Date/Un-date Next Eol Marker 43 |new
* @4 Convert Old Eol Markers '*|' to '*;' Markers 35 |new
*
* {e:\up\COMT*} Return To COMTxx.QM
*
*-- eoi
* M A C R O S
* ----------------------------------------------------------------------
* @(1) Insert Eol Date Marker '*:dd', Pause if Anything Already There
* Like *:22
* ----------------------------------------------------------------------
* This macro inserts an eol date marker in column 73. If any text
* exist in col 73+ the macro pauses for the user to confirm insertion
* by hitting <enter>. An Eol date marker was inserted on the first
* line of this macro on June 14, 1992.
* vvvv
@1 macrobegin *:14
setscreenoff setwordwrapmode togglewordwrap
insertline insertdate
wordleft wordleft markword cut
delline
begline gotocolumn "74" return
isendline
jtrue insert
confirm:
markcharacter endline markcharacter
gotoblockbeg
setscreenon
pause
deltoeol
insert:
'*' ':'
paste unmarkblock cursordown
*
* 39 bytes Sun 06-14-1992 08:43:53 (TH @1)
*
* ----------------------------------------------------------------------
* @(2) Find and Pause to Delete Next Eol Marker
* ----------------------------------------------------------------------
@2 macrobegin
setscreenoff
cursorleft
find '*' ':' return delline return
jfalse end
makectrofscreen
unmarkblock
markcharacter endline markcharacter
gotoblockbeg
setscreenon
pause
deltoeol unmarkblock
repeatfind *:14
end:
*
* 27 bytes Sun 06-14-1992 08:44:15 (TH @2)
* 28 bytes Sun 06-14-1992 09:14:20 (TH @2)
*
* ----------------------------------------------------------------------
* @(3) Find and Date/Un-date Next Eol Marker
* ----------------------------------------------------------------------
@3 macrobegin
setscreenoff
begline
find '*' ':' return delline return
jfalse end
makectrofscreen
unmarkblock wordright markword
jfalse add:
deleteblock
jump end:
add:
setwordwrapmode togglewordwrap
insertline insertdate
wordleft wordleft markword cut delline
begline repeatfind endline
paste
unmarkblock
end:
repeatfind
*
* 43 bytes Sun 06-14-1992 08:44:25 (TH @3)
*
* ----------------------------------------------------------------------
* @(4) Convert Old Eol Markers '*|' to '*;' Markers
* ----------------------------------------------------------------------
* This macro will convert old eol markers '*|' in a block in col 75 to
* '*:' in col 73. If a line block is not marked before invoking,
* either open or closed, the macro pauses for the user to cursor to the
* end of the block and hit <enter>.
@4 macrobegin
gotoblockbeg jtrue MARK
markline
gotoblockbeg jtrue MARK
pause
markline
MARK:
gotoblockbeg
findreplace ' *' '|' return '*:' return 'L' return
unmarkblock
*
* 35 bytes Sun 06-14-1992 10:45:23 (TH @4)